With Ada.Text_IO;
With Ada.Strings.Unbounded;
With Cellules;
With Plateaux;
With Partie;
With Joueurs;
Procedure TicTacToe is
   J1,J2:Joueurs.Joueur;
   Use Joueurs;
Begin

   J1:=Joueurs.Init_Joueur("Rooooooooooooooooooooooooooooooooooooooooooooooooooooonds",Ordinateur,'O');
   J2:=Joueurs.Init_Joueur("Croiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiix",Ordinateur,'X');

   Ada.Text_IO.Put_Line("START : " & Joueurs.Get_Nom(J1) & " vs " & Joueurs.Get_Nom(J2));
﻿  Partie.Jouer_Partie(J1,J2);
   Ada.Text_IO.Put_Line(" ");




End TicTacToe;
